{	Problem: http://codeforces.ru/problemset/problem/20/A
	Verdict: Accepted

}
var s:string; i:integer; flag:boolean;
begin
readln(S);
i:=1;
while i<length(S) do begin
    if (s[i]='/') and (s[i]=s[i-1]) then delete(S,i,1) else inc(i);
end;
if s[length(s)]='/' then flag:=true else flag:=false;
if length(s)<>0 then begin
  i:=length(S);
  while (s[i]='/') and (i>0) do dec(i);
  if length(S)-i<>0 then delete(s,i+1,length(s)-i);
end else s:='/';
{if (flag) then begin
  if length(s)>0 then begin
    if s[length(s)]<>'/' then s:=s+'/';
  end else s:=s+'/';
end;}
if length(s)=0 then s:='/';
writeln(s);
readln;
end.